home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2005 July / CD Rom Data Temmuz 2005.iso / Media / VideoMix.dcr / script_1_script_Genel.ls < prev    next >
Encoding:
Text File  |  2005-05-26  |  1.2 KB  |  44 lines
  1. global Videolar, Videox, VMetinler, Ses
  2.  
  3. on prepareMovie
  4.   if Ses then
  5.     sound(1).volume = 0
  6.     sprite(101).member = member("Ses_K")
  7.   end if
  8.   VYukle()
  9.   Videox = 1
  10.   VGoster()
  11.   sprite(10).visible = 0
  12.   if Videolar.count > 1 then
  13.     sprite(11).visible = 1
  14.   else
  15.     sprite(11).visible = 0
  16.   end if
  17. end
  18.  
  19. on stopMovie
  20.   if Ses then
  21.     sound(1).volume = 255
  22.   end if
  23. end
  24.  
  25. on VGoster
  26.   importFileInto(member("text_VideoMix"), the moviePath & "VideoMix\" & VMetinler[Videox])
  27.   importFileInto(member("Teaser"), the moviePath & "VideoMix\Video\" & Videolar[Videox])
  28.   member(1, "Video").name = "Teaser"
  29.   member(1, "metinler").name = "text_VideoMix"
  30.   SAdet = member("text_VideoMix").line.count
  31.   member("text_VideoMix_ekrandaki_1").text = member("text_VideoMix").line[1]
  32.   member("text_VideoMix_ekrandaki_2").text = member("text_VideoMix").line[2]
  33.   member("text_VideoMix_ekrandaki_3").text = member("text_VideoMix").line[3..SAdet]
  34.   member(1, "Video").controller = 1
  35.   KCubuk = member("text_VideoMix_ekrandaki_3").lineCount > 11
  36.   sprite(18).visible = KCubuk
  37.   sprite(19).visible = KCubuk
  38. end
  39.  
  40. on VYukle
  41.   Videolar = baFileList(the moviePath & "VideoMix\Video\", "*.*")
  42.   VMetinler = baFileList(the moviePath & "VideoMix\", "*.txt")
  43. end
  44.